home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacPerl 4.1.3 / macscripts / AppleScriptFromPerl < prev    next >
Encoding:
Text File  |  1993-08-18  |  195 b   |  9 lines  |  [TEXT/McPL]
  1. #!/usr/local/bin/perl
  2.  
  3. &MacPerl'DoAppleScript(<<'END_SCRIPT');
  4. tell application "MacPerl"
  5.     make new Window
  6.     copy "Inserting text the hard way." to character 1 of front Window
  7. end tell
  8. END_SCRIPT
  9.